47
How can I prevent grouping by a specified column
Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns "Freight" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAllowGroupBy of hoColumn to OLEexGroupByNone
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
46
How can I sort alphabetically the columns to be displayed in the context menu/floating panel

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotBarVisible to (OLEexPivotBarContextSortAscending + OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
	Set ComPivotColumnsSortOrder to OLEexPivotColumnsAscending
	Set ComPivotColumnsFloatBarVisible to True
End_Procedure
45
How can I prevent dropping data to the control
Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowDrop to False
End_Procedure
44
Is it possible to allow incremental filtering on drop down filter window too, as I can on the control menus

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComDisplayFilterList to (OLEexHideFilterPattern + OLEexFilterListDefault)
End_Procedure
43
How can I prevent showing the Filter For field in the drop down filter window

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComDisplayFilterList to (OLEexHideFilterPattern + OLEexFilterListDefault)
End_Procedure
42
How can I display the numeric columns only when selecting a new aggregate, like SUM

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[bold]"
	Set ComPivotColumns to "sum(5)/12,count(5)/12"
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns "Freight" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComSortType of hoColumn to OLESortNumeric
		Send Destroy to hoColumn
	Send Destroy to hoColumns
End_Procedure
41
How can I add a value column

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)/12"
End_Procedure
40
I would like to always have the subtotals in the same row of the "father row". Could that be done

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[bold],2"
	Set ComPivotColumns to "sum(5)/12,count(5)/12"
	Set ComShowViewCompact to (OLEexViewCompactAggregates + OLEexViewCompact)
	Set ComPivotTotals to "/sum,sum(0)"
End_Procedure
39
Is there any way, when I change the filter of the column, it broadcast the filter to the other pivot columns that were duplicated

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,2"
	Set ComShowBranchRows to OLEexBranchCompact
	Set ComPivotColumns to "sum(5)/12[filter='gBpNxjNh1MhlBoKNhpOZ0hJVNxpOhlMggKBhMZrMJnMoAgI='],count(5)/12[filter='gBpNxjNh1MhlBoKNhpOZ0hJVNxpOhlMggKBhMZrMJnMoAgI=']"
	Set ComShowViewCompact to (OLEexViewCompactKeepSettings + OLEexViewCompact)
End_Procedure
38
How can I summarize more fields in the same cell

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,2"
	Set ComShowBranchRows to OLEexBranchCompact
	Set ComPivotColumns to "sum(5)/12,count(5)/12"
	Set ComShowViewCompact to OLEexViewCompact
End_Procedure
37
How do I programmatically group by rows, in a compact way, no hierarchy lines

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,2"
	Set ComShowBranchRows to OLEexBranchCompact
End_Procedure
36
How do I programmatically group by rows

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,1,2"
	Set ComLinesAtRoot to OLEexLinesAtRoot
	Set ComHasLines to OLEexSolidLine
End_Procedure
35
How do I programmatically group by columns

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)/12;6"
End_Procedure
34
How can I hide the add new button on the pivot bar

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotBarVisible to (OLEexPivotBarHideAddNew + OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
End_Procedure
33
Is it possible to show the data that generated the result, when double clicking the row

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[italic]"
	Set ComPivotColumns to "count(0)[underline]"
	Set ComPivotTotals to "count[bold,strikeout]"
	Set ComShowDataOnDblClick to True
	Send ComEndUpdate
End_Procedure
32
Does your control support subscript or superscript, in HTML captions

Procedure OnCreate
	Forward Send OnCreate
	Set ComHeaderHeight to 22
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns "ShipCountry" to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComCaption of hoColumn to "ShipCountry<font ;7><off 6><sha ;;0>subscript"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Variant voColumns1
	Get ComDataColumns to voColumns1
	Handle hoColumns1
	Get Create (RefClass(cComColumns)) to hoColumns1
	Set pvComObject of hoColumns1 to voColumns1
		Variant voColumn1
		Get ComItem of hoColumns1 "ShipRegion" to voColumn1
		Handle hoColumn1
		Get Create (RefClass(cComColumn)) to hoColumn1
		Set pvComObject of hoColumn1 to voColumn1
			Set ComCaption of hoColumn1 to "ShipRegion<font ;7><off -6><sha ;;0>superscript"
		Send Destroy to hoColumn1
	Send Destroy to hoColumns1
	Send ComRefresh
End_Procedure
31
Is it possible to define a different background color for the pivot bar

Procedure OnCreate
	Forward Send OnCreate
	Set ComBackground OLEexPivotBarBackColor to (RGB(240,240,240))
End_Procedure
30
How can I display an icon/image to Content sub-menu

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	Variant voFormatContents
	Get ComFormatContents to voFormatContents
	Handle hoFormatContents
	Get Create (RefClass(cComFormatContents)) to hoFormatContents
	Set pvComObject of hoFormatContents to voFormatContents
		Variant voFormatContent
		Get ComItem of hoFormatContents "numeric" to voFormatContent
		Handle hoFormatContent
		Get Create (RefClass(cComFormatContent)) to hoFormatContent
		Set pvComObject of hoFormatContent to voFormatContent
			Set ComName of hoFormatContent to "<img>1</img> Numeric"
		Send Destroy to hoFormatContent
	Send Destroy to hoFormatContents
	Set ComPivotRows to "5[content=numeric]"
End_Procedure
29
How can I change the selection background in the control's context menu

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComBackground OLEexSelBackColorFilter to (RGB(255,0,0))
End_Procedure
28
How can I display the column as date in a long format

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatContents
	Get ComFormatContents to voFormatContents
	Handle hoFormatContents
	Get Create (RefClass(cComFormatContents)) to hoFormatContents
	Set pvComObject of hoFormatContents to voFormatContents
		Get ComAdd of hoFormatContents "longdate" "longdate(date(value))" Nothing to Nothing
	Send Destroy to hoFormatContents
	Set ComPivotRows to "9[content=longdate]"
End_Procedure
27
Is it possible to display the column in upper-case

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatContents
	Get ComFormatContents to voFormatContents
	Handle hoFormatContents
	Get Create (RefClass(cComFormatContents)) to hoFormatContents
	Set pvComObject of hoFormatContents to voFormatContents
		Get ComAdd of hoFormatContents "upper" "upper(value)" Nothing to Nothing
	Send Destroy to hoFormatContents
	Set ComPivotRows to "0[content=upper]"
End_Procedure
26
How can I programatically bold a column

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[bold]"
End_Procedure
25
How can I display the total with a different foreground color

Procedure OnCreate
	Forward Send OnCreate
	Variant voFormatAppearances
	Get ComFormatAppearances to voFormatAppearances
	Handle hoFormatAppearances
	Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
	Set pvComObject of hoFormatAppearances to voFormatAppearances
		Variant voFormatAppearance
		Get ComAdd of hoFormatAppearances "fore" Nothing to voFormatAppearance
		Handle hoFormatAppearance
		Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
		Set pvComObject of hoFormatAppearance to voFormatAppearance
			Set ComForeColor of hoFormatAppearance to (RGB(255,0,0))
		Send Destroy to hoFormatAppearance
	Send Destroy to hoFormatAppearances
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum[fore,bold]"
End_Procedure
24
How can I display the total with a different background color/ebn

Procedure OnCreate
	Forward Send OnCreate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voFormatAppearances
	Get ComFormatAppearances to voFormatAppearances
	Handle hoFormatAppearances
	Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
	Set pvComObject of hoFormatAppearances to voFormatAppearances
		Variant voFormatAppearance
		Get ComAdd of hoFormatAppearances "back" Nothing to voFormatAppearance
		Handle hoFormatAppearance
		Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
		Set pvComObject of hoFormatAppearance to voFormatAppearance
			Set ComBackColor of hoFormatAppearance to |CI$1000000
		Send Destroy to hoFormatAppearance
	Send Destroy to hoFormatAppearances
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum[back]"
End_Procedure
23
How can I display the total with a solid background color

Procedure OnCreate
	Forward Send OnCreate
	Variant voFormatAppearances
	Get ComFormatAppearances to voFormatAppearances
	Handle hoFormatAppearances
	Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
	Set pvComObject of hoFormatAppearances to voFormatAppearances
		Variant voFormatAppearance
		Get ComAdd of hoFormatAppearances "back" Nothing to voFormatAppearance
		Handle hoFormatAppearance
		Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
		Set pvComObject of hoFormatAppearance to voFormatAppearance
			Set ComBackColor of hoFormatAppearance to (RGB(240,240,240))
		Send Destroy to hoFormatAppearance
	Send Destroy to hoFormatAppearances
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum[back]"
End_Procedure
22
Is it possible to change the "bold" caption in the control's context menu

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatAppearances
	Get ComFormatAppearances to voFormatAppearances
	Handle hoFormatAppearances
	Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
	Set pvComObject of hoFormatAppearances to voFormatAppearances
		Variant voFormatAppearance
		Get ComItem of hoFormatAppearances "bold" to voFormatAppearance
		Handle hoFormatAppearance
		Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
		Set pvComObject of hoFormatAppearance to voFormatAppearance
			Set ComName of hoFormatAppearance to "Ingrosat"
		Send Destroy to hoFormatAppearance
	Send Destroy to hoFormatAppearances
End_Procedure
21
Is it possible to show no Exclude field in the filter window

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComDisplayFilterList to (OLEexShowCheckBox + OLEexSortItemsAsc)
End_Procedure
20
How can I prevent showing the drop down filter button

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComDisplayFilterList to OLEexNoItems
End_Procedure
19
How do I get the count of positive values only

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voAggregates
	Get ComAggregates to voAggregates
	Handle hoAggregates
	Get Create (RefClass(cComAggregates)) to hoAggregates
	Set pvComObject of hoAggregates to voAggregates
		Variant voAggregate
		Get ComAdd of hoAggregates "positive" "sum" Nothing Nothing to voAggregate
		Handle hoAggregate
		Get Create (RefClass(cComAggregate)) to hoAggregate
		Set pvComObject of hoAggregate to voAggregate
			Set ComFormatValue of hoAggregate to "value < 0 ? 0 : 1"
		Send Destroy to hoAggregate
	Send Destroy to hoAggregates
	Set ComPivotRows to "0"
	Set ComPivotColumns to "positive(5)"
End_Procedure
18
How do I get the sum for negative values only

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voAggregates
	Get ComAggregates to voAggregates
	Handle hoAggregates
	Get Create (RefClass(cComAggregates)) to hoAggregates
	Set pvComObject of hoAggregates to voAggregates
		Variant voAggregate
		Get ComAdd of hoAggregates "negative" "sum" Nothing Nothing to voAggregate
		Handle hoAggregate
		Get Create (RefClass(cComAggregate)) to hoAggregate
		Set pvComObject of hoAggregate to voAggregate
			Set ComFormatValue of hoAggregate to "value < 0 ? value : 0"
		Send Destroy to hoAggregate
	Send Destroy to hoAggregates
	Set ComPivotRows to "0"
	Set ComPivotColumns to "negative(5)"
End_Procedure
17
My data stores the data as strings, is it possible to load the data using Import method

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "'string 1';'string 2'#'string 3';'string 4'" "str=`'` eor='#' eof=';' hdr=0" to Nothing
End_Procedure
16
Is it possible to load data using different separators

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "item 1;item 2#item 3;item 4" "eor='#' eof=';' hdr=0" to Nothing
End_Procedure
15
Is it possible to align a column

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComAlignment of hoColumn to OLERightAlignment
			Set ComHeaderAlignment of hoColumn to OLERightAlignment
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Send ComRefresh
End_Procedure
14
How can I change by code the column/rows background color

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voFormatAppearances
	Get ComFormatAppearances to voFormatAppearances
	Handle hoFormatAppearances
	Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
	Set pvComObject of hoFormatAppearances to voFormatAppearances
		Variant voFormatAppearance
		Get ComAdd of hoFormatAppearances "aka" Nothing to voFormatAppearance
		Handle hoFormatAppearance
		Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
		Set pvComObject of hoFormatAppearance to voFormatAppearance
			Set ComBackColor of hoFormatAppearance to |CI$1000000
		Send Destroy to hoFormatAppearance
	Send Destroy to hoFormatAppearances
	Set ComPivotRows to "0[aka]"
	Send ComEndUpdate
End_Procedure
13
How can I apply by code any appearance to my list

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0[italic]"
	Set ComPivotColumns to "count(0)[underline]"
	Set ComPivotTotals to "count[bold,strikeout]"
	Send ComEndUpdate
End_Procedure
12
How can I display an icon instead SUM/Total field

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComImages "gBJJgBggAAwAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjIgjIBAEijUlk8plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9oEEwGBwWDwmFw2Hw9+xUsxGNx2Px+LyUnyGVy2VyeZAGNjIJjITjIb0OjjGi0ukAAVjILzmayWtAGejCvjLh2u3jG23O4ACx1ew11+zEYGsZZsZUe/wkZ4sYZvD4PCy8kjAzjLFjKd5WDjIz6HRvnTwUZGMZX8ZTPb8XU8Hh9cFjALjKVjK5jIv9/w9t78WdjJIoyWr7sKjIWu+/a8Og2QAEajLaIxAzlwhB0DwQuzoECjJWw1DiMQ3D0OgAQMKwsuj8xOy0SrzFEWMdFUExbGMCRfC8ZRswMaLsiofJVHiOo+kKRs2lL2Jsh8cyQo6Ag=="
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voAggregates
	Get ComAggregates to voAggregates
	Handle hoAggregates
	Get Create (RefClass(cComAggregates)) to hoAggregates
	Set pvComObject of hoAggregates to voAggregates
		Variant voAggregate
		Get ComItem of hoAggregates "sum" to voAggregate
		Handle hoAggregate
		Get Create (RefClass(cComAggregate)) to hoAggregate
		Set pvComObject of hoAggregate to voAggregate
			Set ComName of hoAggregate to "<img>1</img> Sum"
			Set ComCaption of hoAggregate to "<img>1</img>"
		Send Destroy to hoAggregate
	Send Destroy to hoAggregates
	Set ComPivotColumnsFloatBarVisible to True
	Set ComFormatPivotHeader to "iaggregate ? (caggregate + (iaggregate != 5 ? ' ' : '') + caption) : caption"
	Set ComFormatPivotTotal to "caggregate"
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum,count"
	Send ComEndUpdate
End_Procedure
11
How can I change the caption to be displayed when dragging an aggregate function

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotColumnsFloatBarVisible to True
	Set ComFormatPivotHeader to "(iaggregate ? ('<b>' + upper(caggregate) + '</b> of ' + caption) : caption)"
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum,count"
	Send ComEndUpdate
End_Procedure
10
I am using Import method, just wondering if I can rename the columns

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Variant voColumns
	Get ComDataColumns to voColumns
	Handle hoColumns
	Get Create (RefClass(cComColumns)) to hoColumns
	Set pvComObject of hoColumns to voColumns
		Variant voColumn
		Get ComItem of hoColumns 0 to voColumn
		Handle hoColumn
		Get Create (RefClass(cComColumn)) to hoColumn
		Set pvComObject of hoColumn to voColumn
			Set ComCaption of hoColumn to "New Caption"
			Set ComPivotCaption of hoColumn to "New Pivot Caption"
		Send Destroy to hoColumn
	Send Destroy to hoColumns
	Send ComRefresh
End_Procedure
9
Does your control support Fit-To-Page Print and Print Preview

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,1,2"
	Send ComExpandAll
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComOptions of hoPrint to "FitToPage = On"
		Set ComPrintExts of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
8
How can I print the control

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0,1,2"
	Send ComExpandAll
	Handle hoPrint
	Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
		Set ComPrintExts of hoPrint to (pvComObject(Self))
		Send ComPreview of hoPrint
	Send Destroy to hoPrint
End_Procedure
7
How can I hide the pivot bar (hide completly)

Procedure OnCreate
	Forward Send OnCreate
	Set ComPivotBarVisible to (OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable)
End_Procedure
6
How can I hide the pivot bar (auto-hide)

Procedure OnCreate
	Forward Send OnCreate
	Set ComPivotBarVisible to (OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAutoUpdate + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarAutoHide + OLEexPivotBarShowTotals + OLEexPivotBarSizable + OLEexPivotBarVisible)
End_Procedure
5
How can I count and get the total of a specified column

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotColumnsFloatBarVisible to True
	Set ComPivotRows to "0"
	Set ComPivotColumns to "sum(5)"
	Set ComPivotTotals to "sum,count"
	Send ComEndUpdate
End_Procedure
4
How can I add show the columns once I grouped a column

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0"
	Set ComPivotColumnsFloatBarVisible to True
End_Procedure
3
How can I programatically group the columns

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
	Set ComPivotRows to "0:D"
End_Procedure
2
Is it possible to load data from a data source

Procedure OnCreate
	Forward Send OnCreate
	Variant rs
	Get Comcreateobject "ADOR.Recordset" to rs
		Send ComOpen "Data" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
	Set ComDataSource to rs
End_Procedure
1
How can I load data

Procedure OnCreate
	Forward Send OnCreate
	Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
End_Procedure